Aminet 24/Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso/Aminet/dev/c/vbcc.lha/vbcc/machines/amigappc/libsrc/math/tanh.c

C/C++ Source or Header | 1997-12-30 | 122 b | 10 lines

#include <math.h>

double tanh(double x)
{
  double ex = exp(x);
  double emx = exp(-x);

  return ((ex-emx)/(ex+emx));
}